DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 
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**F ILE**1D**DBGNSEARC 
DDDDDDDD BBBB8BB8 GGGCGGGG NN NN SSSSSSSS EEEEEEEEEE AAAS AR RRRRRRRR cccccccc 
DDDDDDDD BBBB8BB8 GGGGGGGG NN NN SSSSSSSS EEEEEEEEEE AARALA RRRRRRRR ccccccce 
dD DD 6B BB GG NN NN SS EE AA AA RR RR CC 
dd DD 6B BB GG NN NN SS EE AA AA RR RR CC 
dD DD 6B BB GG NNNN NN SS EE AA AA RR RR CC 
dD DD 6B BB GG NNNN NN SS EE AA AA RR RR CC 
DO DD 688888888 GG NN NN NN SSSSSS EEEEEEEE AA AA RRRRRRRR cc 
DO DD 88888888 GG NN NN NN SSSSSS EEEEEEEE AA RRRRRRRR cc 
0D DD 88 BB GG GGGGGG NN NNNN SS EE AAAAAAAAAA RR RR cc 
0D DD 88 BB GG GGGGGG NN NNNN SS EE AAAAAAAAAA RR RR cc 
dD DD 88 88 GG NN NN SS EE AA AA RR RR cc ceee 
dD DD 688 BB GG NN NN SS EE AA AA RR RR cc eoee 
DDDDDDDD 688888888 GGGG NN NN SSSSSSSS EEEEEEEEEE AA AA RR RR cccccccc eee 
DDDDDDDD BBBB8B88 GGGGGG NN NN SSSSSSSS EEEEEEEEEE AA AA RR RR cccccccc cece 
LL III SSSSSSSS 
LL HII! SSSSSSSS 
LL Il SS 
LL II $$ 
LL I] $$ 
LL I] $s 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] $$ 
LL I] SS 
LL I] SS 
LL I] $s 
LLLLLLLLLL 11111 SSSSSSSS 
LLLLLLLLLL HII SSSSSSSS 
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MODULE DBGNSEARC (IDENT = ‘V04-000') = 


Richard Title 
i CREATION DATE: 
10-22-81 

i VERSION: 

v03.0-001 


i MODIFIED BY: 
: V. Holt, 27-May-1982 


; § BEGIN 

3 4 1 
; 5 1! 
3 $ } Se eee Ci vere, ten, Seek tea og eee 
Ps Hed * | 
; 3 1 ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * 

; 1 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . 
3 19 ! ‘® ALL RIGHTS. RESERVED. ° | 
: \¢ 1 ie THIS SOFTWARE | Is. F NISHED UNDER A LICENSE AND MAY BE USED AND COPIED ® 

ee 1 ie ONLY I WITH THE TERR OF Suge LICENSE AND WITH THE * 
; 1% 1 ie INCLUSION © OFne CN ABOVE COPYRIGHT NO TICE. THIS SOFTWARE OR ANY OTHER * 
. 1 '* COPIES ONEREOF MAY NOT BE PROVIDED OR OTH ERWISE MADE AVAILABLE TO ANY * 
: 16 1 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

: V7 ! is TRANSFERRED. . | 
: #19 i8 1 ie Twe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; 0 9 1 te SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; 1 ! ie CORPORAT ION. ° | 
; 5 § 1 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: : : ! ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ‘ 
: : | 
. 1 | 
: $ 44 } | enansbpeannéniagneneubeennnoseastaunedannbaunenneieeinianetinnbianenennn | 
i$ 0039 1 i | 
: 1! FACILITY: 
: 1 . 
: § 09 § ; DEBUG | 
; 4 00 4 i ABSTRACT: 

: 60 1 This module contains the parse and execution networks for the SEARCH 

; 00 : verb. The parsing method employed is that of ATN's. 
; 39 i ENVIRONMENT: 
3; (41 1 i VAX/VMS 

ae } 

; 1 

3 1 

: 1 

; 1 

; 1 

: 1 

; 1 

; 1 

: 1 

3 1 

3 1 

3 1 

3 1 

: 1 


‘ 
' 
' 
' 
‘ 
' 
' 
' 
.] 
‘ 
‘ 
1 
' 
; AUTHOR: 
] 
' 
' 
! 
‘ 
‘ 
+ 
' 
' 
‘ 
‘ 
' 
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' tad | HISTORY: 
i -May-8 VJH Removed all references to DBGSFAO_PUT and DBGSOUT_PUT, 
which are now obsolete. 
REQUIRE ‘SRC$:DBGPROLOG.REQ'; 
LIBRARY ‘LIB$:DBGGEN.L32'; 
FORWARD ROUTINE 
ARSE ' Parse network 
DBGSNEXECU fre” SEARCH, i Execution network 
DBGSNACCEPT eth ' Subroutine of parsing routine 
: that reads the search 
atm | from the input 
DEGSPARSE_SEARCH; | provides on inter tac ce 
DBGSNPARSE SEARCH from 


the old debugger. 


3a 


OTE TS 


MEW 


OGOGCOOSOSOCSCOSOOSCCOSOOCOOOOOOSOOOOOOOOOOoOOoOO 


Moronoronys 


Be Se Se Se Se Ge SF Ss Se Se FH Se Ss Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Ge Se Se Ge Se Ge Se ae 
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DBGSGET-TEMPMEM, 
DBGSNEWCINE: NOVALUE, 
dbg$nmake_arg_vect, 
dbg$nmatch : 

dbg$nnext_word, 
dbg$nout_arg_vect: NOVALUE, 
dbg$nsave_decimal_integer, 


dbg$nsave_string, 
dbg$nsyntax_error 

DBCSPRINT: ROVALUE, 
dbg$set_search_lvl: NOVALUE, 
dbg$src_search_cmd: NOVALUE, 


dbg$sta_getsourcemod, 
dbg$sta_symname; 


ee ee EE EEO mE 


EXTERNAL 


dbg$gb_search_ptr:REF VECTORC,BYTE],! 
dbg$src_next_(num, : 
dbg$src_next_modrstptr, 
dbg$src_search_string : 


1$-Senn]9ge 01:56:37 


1 
VECTOR C, BYTE 
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Get a memory block 

Get a temporary memory block 

Flush the current print Line 

Constructs error messages 

Tries to match the next token 

Gets next word from input 

Outputs an error message 

Reads an integer from the 

nput string 

Reads a character string from the 
input string 

pares @ syntax error 

Print some ASCII text 

Sets level of search data structure 
overrid (see DBGMOD) 

The routine in DBGSOURCE that 
performs the search and outputs 
the result to the terminal 

Gets module rst pointer 

Turns module rst pointer back 
into a string 


Pointer to SEARCH data structure 
Contains the default starting Line number 
pentanng the default module rst pointer 


The moe in DBGSOURCE that is used 


LITERAL 
adverb_literal_all = 0 
adverb_literal_ident 


="; 


© pass the search string. 


aad 


M11 
GNSE ARC 16-Sep-1984 01:56:37 

voe~000 Ve-Sep-1986 42:19:20 
GLOBAL ROUTINE dbgS$nparse_search ( 

input_desc, 

verb_node, 
a message _vect) = 
Functional Description 


ATN parse network for the SEARCH verb. 

This routine takes a verb node for the qe verb, and a string 
descriptor for the remaining (unparsed) input. 

A command execution tree is built. The form of the tree is: 


Ax-11 OL i genre VR On Ths 
DEBUG. SRC JDBGNSEARC .B832;1 


omnere 


—> i) 
PEPE EE LILI LTLAS TATE Sree 
w 


VFN OC OONOVUSWN —“OOONOUS 


| verb node i-=->--; 


Vv 


: adverb node i-=>--} 


noun node !--><-; 


noun node } 


adverb node ;} 


WN SO OOVNOUES WH" OOOnou 


NEXT, ALL) if any are present. 
The first moun node contains the starting Line number, 
ane Rig number, and module rst pointer. The second noun node 


- Success. Command execution tree constructed. 
- Failure. Error encountered. Message argument 
constructed and returned. 


sts$k_success 


The adverb nodes contain the command switches (STRING, IDENTIFIER, 
| 
| 

(1) | 

sts$k_severe (4) 


Wwt— 


i Side Effects 
i none 


' 
1 
1 
1 
4 
t 
' 
t 
1 
' 
' 
1 
! 
1 
f 
1 
! 
' 
1 
! 
4 
! 
: input_desc 
i 
1 
‘ 
' 
| 
' 
] 
' 
1 
1 
i] 
i] 
t 
] 
' 
' 
' 
' 
‘ 
y 
1 
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4 contains a pointer to the search string. 

41 i Formal Parameters 

rk - A longword containing the address of the 

44 command input descriptor. 

4S verb_node - A longword containing the address of the verb node. 
46 2 message_vect - The address of a longword to contain the address 
rt 4 3 of a standard message argument vector. 
$3 i Implicit Inputs 

51 none 

26 : 

a7 ! Implicit Outputs 

55 i On success, the command execution tree is constructed. 

2$ On failure, a message argument vector is constructed or obtained. 
Hf i Routine value 

59 : 

60 

6 

6 

6 

64 

65 

7 

% 
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; in input_desc : REF dbg$stg_desc, 
: fg : verb. Rode : REF dbgsver6 node; 
; 174 5 BIND 
; 175 dbg$cs_all = UPLIT BYTE (3, ‘ALL") 
: 176 dbg$cs_ident = UPLIT BYTE (16, IDENTIFIER’), 
; 17 OS dbg$cs_nex = UPLIT BYTE (4, NEXT"). 
; 178 dbg$cs_str ng = UPLIT BYTE (6, *STRING’) 
; 1 10 dbg$cs_backslash = UPLIT BYTE (1, dbg$k_backslash), 
: 180 11 dbg$cs_colon = UPLIT BYTE (1, dbg$k_colon), 
> «181 \¢ dbg$cs_cr = UPLIT BYTE (1, dbg$k_car_return), 
. % ¢ 1 dbascs_quote = UPLIT ME (1, db ask quo e), 
9 14 dbg$cs_dbl quote = UPLIT BYTE (1, dbg$k_dblquote), 
; ee 1? dbg$cs_slash = UPLIT BYTE (1, dbg$k_slash); 
; «4186 0 i$ ! NAME _BUF must be an OWN variable since its address may get placed in 
3 187 0318 ! an error message vector and used later during output of an error 
; #188 0319 ! message. 
oat 
: 13) § name_buf : VECTOR (81, BYTE]; ! Holds counted string with module name 
3 133 03 4 LOCAL 
3 194 0325 adverb_node : REF dbg$adverb_node, ! points to an adverb node 
; 195 03 $ all_flag, ! TRUE if /ALL or /NEXT is present 
3 138 83 all_value, ! TRUE for /ALL, FALSE for /NEXT 
3 «19 328 char, ! Used during parsing of module name 
; 198 0329 dbl quote_flag, ! Indicates a double quote 
; 199 03350 delimiter, ! either “or ' 
; 200 0331 eol_ flag, ! Indicates end of command Line 
; 201 HY $ high_\num, ! High Line number in the search range 
3 Of 0 . } veaporery string index for scan-ahead 
; 20 0334 ident_flag, ! TRUE if /IDENT or /STRING is present 
3; 206 335 ident_value, ! TRUE for /IDENT, FALSE for /STRING 
; 205 3 $ is_it_name, ! flag indicating we read a module name 
; 206 3 Length, ! Used during persone of module name 
; 207 38 Lin ! Used for building linked Lists. 
; 208 39 Low_ (num, ' Low Line number in the search range 
3 209 0340 modrstptr, ! RST pointer for the module being searched 
: 210 Bee) noun_node : REF dbg$noun_node, ! A node in the command execution tree 
: 211 +08 quote_flag, ! Indicates a ‘ 
3 \ 034 string_ptr, ! Used during parsing of module name 
: 21 0344 switc flag ! Indicates a switch is present 
: \ O46 TPTR: REF VECTORC,BYTE); ! Temporary string pointer for scanning 
; 21 034 
3 1H O38 Initialize the switch variables. 
: 219 $350 switch_flag = FALSE; 
: 220 $2) all flag = FALSE; 
; ent_flag = FALSE; 

21 5 ident_f FALSE 
: $58 332 
3 ! Accept any override switches that may be present 

3 385 : A id itch h b 

: $ 339 WHILE Sogtraetch (.input_desc, dbg$cs_slash, 1) DO 
; 0358 BEG! 


12 
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v04= 14 ety 7 93339:36 DEBUG. SRCIDBGNSEARC -B3 31 (3 
SELECTONE TRUE OF 
SET | 


Cdbg$nmatch (.input_desc, dbg$cs_all, 1)J : ! /ALL 
BEGIN 


switch flag = TRUE; 
all_flag = TRUE; 
all_value = TRUE; 
END; 


Cdbg$nmatch (.input_desc, dbg$cs_ident, 1)] : ! /IDENT 
BEGIN 


switch_flag = TRUE; 
ident_flag = TRUE; 
peta = TRUE; 


Cdbg$nmatch (.input_desc, dbg$cs_next, 1)] : ! ! /NEXT 
BEGIN 


switch_flag = TRUE; 
all_flag = TRUE; 

all=value = FALSE; 
END; 


eabasrmeteh (.input_desc, dbg$cs_string, 1)] : ! /STRING 


switch_flag = TRUE; 
ident_flag = TRUE; 
a ata = FALSE; 


PADAA AAMT BS EEE EEO 
WN SO OCONOUES WN OO ODNAUEWN “ODO ONAULSWN—OOC 


PIPIPIPOPIPIPININIPIPIPINIPININIPIPINONINININPIPINININIPI NUNN PNP 
LHF PWN NIAARIPININPININIWIWIN EE & HB SWABS B&H PWS & BF PW BF FEW FF Pw 


C OTHERWISE J] : ' Syntax error 

1 BEGIN 
6 § emessage_vect = , 
6 gpd "apn ts (dbg$nnext_word (.input_desc)); | 
6 94 RETURN sts3k_severe; 
64 95 END; 
65 96 
66 97 TES; 
67 98 END; 
68 99 
9° 89 Construct any adverb nodes, if needed. 
71 4 if .switch_flag 
i 0 TH 
7 04 BEGIN 
74 05 
a 36 Link = verb_node Cdbg$l_verb_adverb_ptr); 
77 08 SELECT TRUE OF | 
i % - 
30 th C.all flag : ! We have either /ALL or /NEXT 
3 418 Construct an adverb node and Link. 
84 415 ADVERB_NODE = DBGSGET_TEMPMEM(DBGS$K_ADVERB_NODE_SIZE); 
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if dbg$nmatch (.input_desc, dbg$cs_cr, 1) 
THEN 


I NUINININIINII SS humeo noe 


AWWWIAIAIAI AAI AAW AAI ANNONA AAA AANA 


; 285 pri8 4 slink = seevers eee: 
; My 417 4 Link = adverb_node dbgSl_adverb ink]; 
; 28 3 4 adverb_node (dbg$b_adverb_literal] = adverb_literal_all; 
3 os rh 4 adverb_node [dbg$l_adverb_value] = .all_value; 
; 290 ‘31 3 ; 
; 291 be ¢ C.ident_flag] : ! We have either /IDENT or /STRING 
; 04 4 BEGIN 
3 8 ¢ 2 } Construct an adverb node and Link. 
; 295 0426 4 ADVERB_NODE = DBGSGET_TEMPMEM(DBGSK_ADVERB_NODE_SIZE); 
3 38 8 7 4 link = .adverb_no e: 
. 426 4 Link = adverb_node [dbg$l_adverb_Link]; 
: 298 0429 4 adverb_node (dbg$b_adverb_literal] = adverb_literal_ident; 
3 444 0430 4 adverb_node [dbg$l_adverb_value] = .ident_value; 
: 300 0431 3 END; 
; 301 BOs 
: $06 043 TES; 
H 3 0434 
3; 304 0435 3 ! Now put a zero in the Last Link field 
H $02 0436 3 : 
3 0437 3 link = 0; 
H 0438 3 
; 0439 END; 
: 0440 
3 0441 
3 ore § Create and Link a noun node 
; 0444 2 NOUN_NODE = DBGSGET_TEMPMEM(DBG$K_NOUN_NODE_SIZE); 
3 cere 2 verb_node(dbg$l_verb_object_ptr] = .noun_node; 
: 0447 3 
: 0448 ! Check for SEARCH <cr> 
H 0449 § : 

; 0450 

; 51 ¢ 

: 8536 BEGIN 

: 045 ; eol_flag = TRUE; 

3 0454 dblquote_flag = FALSE; 

3 0455 3 quote. flag = FALSE; 

; 9628 3 ND 

; 045 ELSE 

; 0458 BEGIN 

: #4 eol_flag = FALSE; 

3 bees : Check for SEARCH “‘string" 

: 3 bees IF dbg$nmatch (.input_desc, dbg$cs_dblquote, 1) 

; 464 THEN 

; 65 4 BEGIN 

3 466 4 dblquote_flag = TRUE; 

; 467 & quese flag = FALSE; 

§ 468 4 elimiter = dbg$k_dblquote; 

; 469 4 END 

; 339 470 3 

; 340 471 4 BEGIN 

: 341 0472 4 dblquote_flag = FALSE; 
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yOen000 132808-1 382 03:98:30 DEBUG. SRC IDBGNSEARC .B3 1 
; 473 4 IF dbg$nmatch (.input_d , dbg$cs te, 1) 
i 38 47h 4 eaten ri = ge cre 
: 344 475 2 BEGIN 
> 345 oes uote_flag = TRUE; 
: re bes 2 elimiter = dbg$k_quote; 
: 348 Oc79 ELSE 
; 349 Bree 2 BEGIN 
; 350 481 queye flag = FALSE; 
3 2) pons 2 pas weveer = dbg$k_car_return; 
; 38 484 END; 
3 2¢ : 5 END; 
: 23 08? ff gab tquete flag OR .quote_flag OR .eol_flag 
; 28 oh 34 BEGIN ! no location argument supplied 
; 309 red Try to get default module. 
: $e ond if ,ddaSsrc_next_modrstptr EQ. 0 
; : 0495 4 BEGIN 
; 365 0496 4 ! report an error 
; 366 0497 4 emesSage_vect = dbg$nmake_arg_vect(dbg$_nonxtlin); 
3; 367 0498 4 RETURN sts$k_severe; 
8 om 
: 370 0501 ! The module rst pointer is placed in the adjective field of 
3 4. beng } the noun node. 
: 378 Behe noun_node Cdbg$l_adjective_ptr] = .dbg$src_next_modrstptr; 
; Le B29 Fill in the starting Line number based on global info 
; 38 3208 noun_node Cdbg$l_noun_value] = .dbg$src_next_lnum; ! Start of search 
; 379 0510 ! The search should go to the end of the module. Fill in a Line 
3 £0 th number that is definitely beyond the end of the module. 
: H 0318 noun_node Cdbg$l_noun_value2] = 2000000000; 
; 84 0519 END; 
: is 31 $1 ceol.tlag 
; 388 0519 BEGIN 
3 44 82 9 : The link field is zero 
; 391 5 é noun_node [dbg$l_noun_Link] = 0; 
3 , ; Z a rum sts$k_sucCcess; 
: 39% 525 : 
; 395 ; § IF NOT (.dbiquote_flag OR .quote_flag) 
; 37 528 BEGIN 
: 398 5 
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We now attempt to read a module name 
name. buf(0] = 9: 
etr n9_p ptr = .input_desc(dsc$a_pointer]; 
Lengt . input. destldsc$w_lengthj; 
} read past leading blanks 
WHILE .length GTR 0 DO 
BEGIN 
char = pi a(string_ ptr); 
length = engt 
IF Fegcner ee boSk_ blank 


EXITLOOP; 
ND; 


If the Length reaches zero then it is an error 
This should not happen. 


ae EQL 0 AND .char ECL dbg$k_blank 
BEGIN 
+ amrapnloamecen sn ermaneipie cect 


' Read until we reach a a oecn A character. 
; Place the characters into name_buf as we read them. 


WHILE .Length GTR 0 DO 
BEGIN 


IF .char EQL ‘\' 
OR .char EQL ‘:" OR .char EQL ° '° 
THEN 


BEGIN 

! Correct for notes. going one too far. 
Lengths ptr = Nr = | (.string_ptr, -i); 
esnat t oman 


ND; 
name_ but oe = “porto a + 1; 
name_bufL.name_buf char; 
char~= ch$rchar a(string_ ptr); 
sength = .length - 1; 


' Decide whether what the user entered seems to be a name or a number. 
iS_IT_NAME = FALSE; 
NTR J FROM f 16 NAME _B urt02 p 
i -NAME_BUFC.J) GTR ' oR -NAME_BUFC.J] LSS ‘0° 
IS_IT_NAME = TRUE; 


ee 


! Now decide whether we are looking at a module name. 
} Convert the name to an rst pointer. 
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rivet 12-8681 384 9:39:35 DEBUG. SRC IDBGNSEARC .B3 31 ' (3) 
noun_node(dbg$l_adjective_ptr] = 
dbg$sta_getSourcemod(fhame_buf); 


! If the above routine returned a non-zero value then the user entered 
} an valid module. 


IF .noun_node(dbg$l_adjective_ptr] NEQ 0 
THEN 


oOo. 
2S 
OOoooc0co 
PUPS 


bgs 
RETURN stsdk_severe; 
END 


ELSE 
! we have found a module. 


: i 

3 4! 

: 38 

; 46 94 

; 464 95 4 BEGIN 

; 465 38 4 ! Update the input descriptor 

3 re ¢ 97 & : 

; 46 4 4 input desc idsc$e_ ointer) = .string_ptr; 

; re BR ? input descldsc$w_length] = .length; 

; 470 601 4 ! Eat the backslash which may follow the module name. 
3 re 8 2 ! If it is not there, don't worry about it. 

; 47 se: 4 dbg$nmatch (. input desc, dbg$cs_backslash, 1); 

: 474 05 4 

3; 475 Bone 4 ! fill in new value of modrstptr 

3 of e484 ? modrstptr = .noun_node(dbg$l_adjective_ptrd; 

: 4678 09 4 END ! pick up module name 

3; 479 st) 4 . 

; 480 0611 ; ELSE 

>; 481 pels 

3 rt Bol? ? BEGIN ! decide whether to put out an error message. 
: 484 0615 4 ! If the user seems to have entered a name but it is 
: 485 g018 4 ! not a valid module name then issue an error message. 
: 486 0617 4 ! 

; 487 0618 4 IF .is_it_name 

; 488 0619 4 THEN 

3; 489 0620 BEGIN 

; 490 be 1 -message_vect = apiracke arg_vect ( 

3; 491 ¢ dbgs _nosuc modu, 7, name_buf); 

; 49 06 RETURN stsSk_severe; 

3; 49 0624 4 END; 

3 494 0625 4 

3 rhe 06 $ 2 } Fill in a module based on current scope 

3 $38 Oe : ? modrstptr = dbg$sta_getsourcemod(0); 

3; 499 630 4 IF .modrstptr EQ. 0 

; 500 1 4 THEN 

F 4 ; BEGIN 

: 88 ! If this is zero, then we have no scope with 
3 Be 5 } which to supply a module. Report an error. 
5 08 -Message_vect = dbg$nmake_arg vect( 

; 50 8 noscope, 1, -dbgSsrc_next_\num); 
; 508 9 

; 509 

; 510 

3 11 & 

3 $12 4 
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! fill in the adjective field 
noun nodeldbg$\ adjective. ptri = ,modrstptr; 


END; ! FILL in default module 
! Read in the low Line number. First we scan ahead to see if such a 
! number was specified. If it was, we pick it up and make that the 
! Low Line number of the range. if no number is specified, we make 
the range large enough to include the entire module. 
LOW_LNUM = 1; 
HIGA_LNUM = 2000000000; 
TPTR-= .INPUT_DESCCDSC$A_POINTER); 

| 


I = 0; 
WH . Soe tie bh EQL DBGSK_BLANK) OR (.TPTRC.1] EQL DBGSK_TAB) DO 
= e 4 


IF (.TPTRC.1] GEQ ‘O*) AND (.TPTRC.1] LEQ '9") 

DBGSNSAVE _DECIMAL_INTEGER(.INPUT_DESC, LOW_LNUM); 
! Now look for colon which signifies that the user has also specified a 
! high Line number. If the colon is present, we scan ahead to see if a 
! high Line number was apeere as If it was, we pick it up and make 
! that the high Line number of the range. 1f no number was specified, 
we leave the range large enough to include the entire module. 


IF DBGSNMATCH(.INPUT_DESC. DBGSCS_COLON, 1) 


BEGIN 
TPTR = .INPUT_DESCCDSCSA_POINTER]; 
= 0; 
WHILE (.TPTRE.13 EQL DBGSK_BLANK) OR (.TPTRE.1] EQL DBGSK_TAB) DO 
=. Py 


4 (,TPTRC.1] GEQ °O°) AND (.TPTRC.1] LEQ '9") 
DBGSNSAVE _DECIMAL_INTEGER(.INPUT_DESC, HIGH_LNUM) ; 
END; 


: Fill in the fields of noun_node 

NOUN_NODE DBGSL_NOUN_ VALUE} = .LOW_LNUM; 
NOUN_NODECDBG$L-NOUN_VALUE2] = .HIGH_LNUM; 

' Now that we have read the module and/or Line range information, 
: look for quote or double quote once again. 


iF _dbgSnmatch (.input_desc, dbg$cs_dblquote, 1) 


BEGIN 
dblquote_flag = TRUE; 
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delimiter = dbg$k_dbi quote; 
aes (. input desc, dbg$cs_quote, 1) 


BEGIN 
quose flag = TRUE; 
elimiter = dbg$k_quote; 
END 
ELSE 
BEGIN 


! No quotes specified. We want to strip off leading 
white space before reading the string 


LOCAL 
char; 

WHILE input desc Cdsc$w_length] GTR 0 DO 
BEGIN 


char = ch$rchar_alinput Practgecte_sotager 32: 
input _desc(dsc$w Length] = - input desc(dsc$w_length] - 1; 
jf, :eher NEQ dbg$k_blank THEN EXITCOOP; 


: Back up since the above read one too far. 


input_des¢{dsc$a_pointer] = 
ogy pee nput_desc(dsc$a_pointer],-1); 
ingut desc dsc$w_length] = .input_desc Cdsc$w_length] + 1; 


! At this point we have accepted the module and Line number range 
: (or used defaults). We now expect to see the search string. 


IF dbg$nmatch (.input_desc, dbg$cs_cr, 1) 
THEN 


BEGIN 

! First check for the case of SEARCH ** or SEARCH ‘ , 
! both of which we shall treat as errors. 

IF .dblquote_flag OR .quote_flag 


SIGNAL (dbg$_noend,3,.input_desc,1,delimiter); 


! No search string specified, so we just fill a zero into the 
noun Link field and return. 


noun_node[dbg$l_noun_Link] = 0; 
RE TURN sts$k_success; 


! If we reach this point then the user has specified a search string. 
So we create and Link new noun node for the search string. 
n 


Link = noun_nodeCdbg$t_noun_Link); 
mt NODE ="DBGSGET_TEMPMEMTDBGSK_NOUN_NODE_SIZE); 
-link = .moun_node; 


0 
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: Read the string and leave a pointer in the second noun node 


if NOT dbg$naccept_string (.input_desc, noun_node(dbg$l_noun_value] 
aaa delimiter, FALSE, .message_vect, TRUES 


RETURN sts$k_severe; 
RETURN sts$k_success; 
END; ! dbg$nparse_search 


Sete Ge Ge Se ee Ge Ge Ge Ge Se ee 


- TITLE tree tort 
IDENT \v04-000\ 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


03 90000 P.AAA: .BYTE 3 
4C 4C 41 00001 “ASCII \ALL\ 
OA 00004 P.AAB: .BYTE 1 
52 45 49 46 49 54 4E 45 46 49 9005 ae ASCII \IDENTIFIER\ 
54 58 45 4E 00010 "ASCII \NEXT\ 
9¢ 4 14 P.AAD: .BYTE 
47 4€ 49 52 54 0015 <ASCII \STRING\ 
3¢ 01 00018 P.AAE: .BYTE 1, 9 
A 01 00010 P.AAF: BYTE 1. 5 
op 1 QOO1F P.AAG: .BYTE 1. 1 
1 00021 P.AAH: .BYTE 1. 39 
2 01 000 : P-AAL: .BYTE 1. 34 
F 01 00025 P.AAJ: .BYTE 1. 47 
6 47 42 66 4 41 & 4E 47 42 44 18 P.AAK: ASCII <27>\DBGNSEARC\<92>\DBGSNPARSE _SEARCH\ 
24 47 42 3 52 41 45 53 7 1B 00027 $7 92 $ 
48 43 41 45 53 SF 45 53 52 41 SO 4E 000 


-PSECT DBGSOWN,NOEXE, PIC,2 
00000 NAME _BUF : 


‘BLKB 81 

DBGS$CS_ALL= P.AAA 

DBG$CS~1DENT= P-AAB 

DBGSCS-NEXT= P- AAC 

DBGSCS~STRING= P- AAD 

DBGSCS-BACKSLASH= P.AAE 

DBGS$CS~COLON= P.AAF 

DBGSCS_CR= P- AAG 

DBGSCSQUOTE= P-AAH 

DBGSCS-DBLQUOTE= PAA 

DBG$CS~SLASH= P.AAJ 
-EXTRN DBGSGET MEMORY, DBGSGET_TEMPMEM 
“EXTRN DBGSNEWCINE, pas KE_ARG_VECT 
“EXTRN DBGSNMATCH, DBGSNNEXT_QORD 
“EXTRN DBGSNOUT ARG VECT 
“EXTRN DBGSNSAVE_DECIMAL_INTEGER 
EXTRN DBGSNSAVE STRING 
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DBGSNSYNTAX_ERROR 
DBGSPRINT 
DBGSSRC_SEARCH C 
DBGSSTA~ GET SOURCEMOD 
DBGSSTA-SY 
DBG$GB_SEARCH PTR 
DBGSSRC_NEXT_CNUM 
DBGSSRC~NEXT-MODRSTPTR 
DBGSSRC~SEARTH_STRING 


DBGSCODE ,NOWRT, SHR, 


TT SEARCH, Save R2,R3,R4,R5,R6,R7,- 
R8,RI,R10,R11 


pagscs CR, R11 
#i2, SP 
ALL_FLAG 
SWITCH_FLAG 
INPUT DESC, RS 
| panne 
#3, DBGSNMATCH 
#1 

DBGSCS_ALL 

#3, DBGSNMATCH 
RO, #1 


#1, SWITCH FLAG 
#1, ALL_FLAG 
i. ALL VALUE 


ry 

DBGSCS_IDENT 
#3, DBGSNMATCH 
0: #1 

#1, SWITCH_FLAG 
#1. IDENT_FLAG 
#1, IDENT VALUE 


#1 
apenas 


#3, DBGSNMATCH 
RO, #1 


#1, SWITCH FLAG 
#1, ALL FLAG 
ALL_VALOE 


#1 
DBGSCS_STRING 
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BBGSSET_SEARCH_LVL 
MD 


K 12 
1e$ep-198e 82:79:20 Ebeaus.SAcSbecnstate.ess;1 = P88" GF 


0D R : 
00 3 FB CALLS #3, DEGSNMATCH : | 
A 1 BNEG ; 
53 1D MOVL #1, SWITCH_FLAG 3 0385 | 
} D 7 L #1, IDENT FLAG : 8b 
D4 O009A CLRL pENT_VALOE : $ 
a6 11 9C Bra 3 9 
DD 7$: PUSHL R + 0393 
00 1 FB OOOA CALLS #1, DBGSNNEXT_WORD : 
0 DD OO0A PUSHL R : | 
00 01 re 0 A CALLS #1, DBGSNSYNTAX_ERROR : | 
O1F1 B BRW 3 : | 
3€ 52 £9 908 8$: BLBC_ SWITCH_FLAG, 11$ ; 0402 | 
08 AC 04 C1 00086 ADDL3 #4, VERB_NODE, LINK + 0406 
01 4 D1 00088 CMPL ALL_FLAG, #1 + 0411 
if 12 0008 BNEQ : 
03 oD 000C PUSHL # + 0415 
000000006 00 gi FB 90¢ CALLS #1, DBGSGET_TEMPMEM : 
69 0 pO 000¢ MOVL.  ADVERB_NODE; (LINK) + 0416 
59 08 AO 9E doce MOVAB 8(RO), LINK + 0417 
0 94 000D CLRB = (ADVERB_NODE) 3 0418 
04 Ad : DO 0000 MOVL ALL_VALOE, 4(ADVERB_NODE) 3 0419 
01 D1 00006 9S: CMPL = IDENT_FLAG, #1 + 0422 
17 12 0000 BNEG 10$ : 
03 0D 00008 _ PUSHL # + 0426 
000000006 00 gi FB 000DD CALLS #1, DBGSGET_TEMPMEM : 
69 0 DO 000E4 MOVL ADVERB_NODE. (LINK) + 0427 
59 08 Ao 3 00E7 MOVAB 8(RO), “LINK + 0428 
60 o4 90 OO0EB MOVB #1, (ADVERB_NODE) + 0429 
04 Ad 7 v0 OO0EE VL —_—«IDENT_VALUE> 4(ADVERB_NODE) 3 04 
69 04 OOOF2 10$:  CLRL (LINKS + 0437 
04 DD OOOF4 11$: PUSHL + 0444 
000000006 90 oi FB 9 r6 CALLS #1, DBGSGET_TEMPMEM ; 
50 08 AC D0 01 MOVL § VERB_NODE, R + 0445 
08 Ad 54 D 91 MOVL § NOUNNODE, 8(RO) F 
o1 DD 001 PUSHL #1 + 0450 
0820 8F BB O010A PUSHR #*M<RS,R11> : 
000000006 99 03 FB 9010 CALLS #3, DBGSNMATCH F 
3 1 DO 0011 MOVL #1, EOL_FLAG + 0453 
A D4 00118 CLRL  DBLQUOTE FLAG > 0454 
8 p4 110 CLRL  QUOTE_FLAG : 0495 
40 11 OO11F BRB > 0450 | 
52 04 00121 128:  CLRL EOL_FLAG > 0459 
01 BD 1 PUSHL #1 + 0463 
04 F 001 PUSHAB DBG$CS_DBLQUOTE ; 
55 0D 001 PUSHL R : 
000000006 00 : FB 120A CALLS #3, DBGSNMATCH : 
£9 00131 BLBC =E_—s&akRO, : 
A g1 DO 001 VL #1, DBLQUOTE_FLAG F 
D4 00137 CLRL QUOTE FLA ; 
08 AE 00 139 MOVL #34, DELIMITER F 
130 BRB 15$ ; 
A D4 0013F 138:  CLRL DBLQUOTE_FLAG F 
1 DD 00141 PUSHL @ : 


ww 
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ita tt 1exee=} 88s 93:39:35 HaMe lt Oh is sae hae 8s 
02 9F 00143 PUSHAB DBG$CS_QUOTE 
DD 146 PUSHL R 
000000006 FB 148 CALL ‘ ' DEGSNMATCH 
g 1 DO 001 MOVL #1. QUOTE FLAG 
08 AE 7 p MOVE f 3. DELIMITER 
D4 00158 14$: = CLAL QUOTE FLAG 
08 AE D 00 0015p MOVL #13, DELIMITER 
A €8 00161 15$: BLBS | DBLQUOTE FLAG, 16$ 
EB 00164 BLBS § QUOTE FLAG, 16$ 
E9 00167 BLBC  EOL_FLAG, 18S 
000000006 06 p A 16$: TST DBGSSRC_NEXT_MODRSTPTR 
00028CEO | 8F DD a7 PUSHL #167136 
000000006 00 - 1 FB O78 CALLS a, DBGSNMAKE_ARG_VECT 
04  A& 000000006 § 00 0182 17$:  MOVL  DBGSSRC_NEXT_MODRSTPTR, 4(NOUN_NODE) 
64 Sop egonGe 0 OD G018h MOVL ttt ets N xT ENUM (NOUN_NODE) 
oc Bg THMHOO Be ee assy BEE ESUOPOREOOG Tecnu. 
0202 31 0019¢ BRW atte 
03 018 9 O19F 188: BLBC DBLQUOTE_FLAG, 20$ 
™ 00000000' 38 ge ois 208: ant omer 
56 04 AS SE OO1A MOVAB 4(R5J, R6 
57 $8 g OiBs MOVL (R6), STRING_PTR 
52 6 C 0018 MOVZWL (RS), LENGTH 
gs 2 fais ats: sik setn 
53 87 9A o1BC MOV ZBL (STRING _PTR)*, CHAR 
oO Be Beem 
se os Goice zzs: FEL itera 
<0 53 D1 tt CMPL CHAR, #32 
12 12 001CD BNEO 3$ 
08 OF bb cole PUSH. Ri 
00028362 8F DD 001D4 PUSHL #164706 
000000006 00 3 FB OO1DA CALLS #3, L 1BSSIGNAL 
en 
0000005C 8F D1 OO1E CMPL HAR, #92 
A 13 OO1EC BEQL 
3A ; ot ite beer HAR, #58 
20 : of i cnPL HAR, #32 
3 5 1F8 24$:  DECL = STRING_PTR 
re MB aast age" 
0 ' EF 96 OO1FE 258: INCB  NAME_BUF 
se SBBBBED: FE $k BRE UN, SE-B 
00000000" EF 4 3 90 MOVB CHAR; NAME_BUFCRO) 
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$071 38e 94:79:35 DEBUG. SRC Seanstane 035; aad 
53 87 9A 00213 MOVZBL (STRING_PTR)+, CHAR : 057 
b/ 1% DECL NGTH + 057 
: H in 26$ ere ($11 NAME : 238 
51 00000000° gf BR MOVZBL NAME_BUF, R1 : 0579 
3 rf ghee 9$ : 
39 00000000"EF 40 1 , 27$: CHPB NAME BUFLJJ, #57 t 0580 
30 00000000"eF 0 91 j CMPB NAME BUFCJI, #48 ; 
53 oi 09 38s MOVL #1, 1S_1t NAME + 058 
ES &. $ AOBLEQ R1. J, 278 > 058 
00000000" EF 9F 0024 PUSHAB €_BuF : 0588 
000000006 00 1 £ 4 CALLS #1, DBGSSTA_GETSOURCEMOD : 
04 AG 0 OD 4F MOVL RO, 4(NOUN_RODE) 3 
1A 1 3 BEQL 308 ; 0593 
66 57 06 0 MOVL § STRING_PTR, (R6) + 0598 
65 52 BO 00258 MOVW LENGTH; (R5) : 0599 
01 DD 00258 PUSHL # + 0604 
FC AB 9F 0025D PUSHAB DBGS$CS_BACKSLASH ; 
5 DD 00260 PUSHL é 
000000006 00 03 FB 00 62 CALLS #3, DBGSNMATCH : 
50 04 A& 00 0026 MOVL 4(NOUN_NODE), MODRSTPTR 3; 0607 
40 11 0026D BRB : 0593 
10 53 £9 00 oF 30$: BLBC 15S _IT_NAME, 31$ : 0618 
00000000' FF F 00 ; PUSHAB NAME_BUF : 0621 
1 DD 0027 PUSHL #1 ; 
000281E8 8F DD O027A PUSHL #164328 F 
1B 11 00280 BRB 32$ ; 
7E D4 00282 318: - + 0628 
00000000G 00 2 F 0284 CALLS #1, DBGSSTA_GETSOURCEMOD $ 
0 05 00288 TSTL § MODRSTPTR : 0630 
1¢ 12 0028D BNEO 4 ; 
000000006 00 DD 0028F PUSHL  DBGS$SRC_NEXT_LNUM + 0638 
1 DD 00295 PUSHL : 0637 
00028972 8F DD 00297 PUSHL #166258 F 
000000006 00 ; FB 9D 328: CALLS #3, DBGSNMAKE_ARG_VECT : 
0c BC p AG 33$: MOVL RO, @MESSAGE_VECT : 
0124 31 0028 BRW : 0639 
04 AGS 0 OD AB $c$: MOVL MODRSTPTR, 4(NOUN_NODE) : 0645 
6E 4 D O2AF 35$: MOVL # it we 3 3932 
04 AE 77359400 8F D B2 MOVL § #2600000000, HIGH_LNUM : 0656 
5 D BA MOVL (R6), TPTR : bee 
D BD CLRL : 0658 
20 624 it BF 36$: CRPE (I)CTPTR, #32 : 0659 
09 6259 9 3 CMPB (1) CTPTRI, “9 ; 
04 1 ¢ BNEQ $ : 
CB 37$:  —sINCL ; 0660 | 
F CD BRB 6$ : 
30 6247 91 OOOCF 38%:  CMPB (I)CTPTRI, #48 : 0662 | 
11. 1F 002D BLSSU : 
39 6247 91 0020 MPB 0s (I) CTPTRI, #57 : 
1A 002D BGTRU ; 
4020 F 6B 0B USHR M°M<R5 re 3: 0664 
000000006 00 FB OO2DF CALLS #2, DBGSNSAVE_DECIMAL_INTEGER ; 


GNSEARC 16-Sep-1 56:37 AX-11 Bliss-32 V4.0-74 Pa 8 
it 1or80R= 138s 93:79:35 | YOMe he Ohi ss eRe hae ass. ve i 
01 DD 002E6 39S:  PUSHL #1 : 0673 
FE OA oF EB PUSHAB p G$CS_COLON : 
000000006 00 1 FB ED CALLS #3, DRGSNMATCH : 
E Fa BLBC =s_- RO. 4 : 
é DO OOF MOVL  (R6), TPTR + 067 
ps FA CLRL od; + 067 
20 624 | FC 40$ CMPB 4s CL) CTPTRI, #32 + 0678 
06 1 BEQL © 41$ : 
09 6247 93 CMPB (1)CTPTRI, "9 : 
04 1 BNEQ 42$ : 
; 41$: INCL } + 0679 
F A BRB 0$ F 
30 6247 91 42$ CMP (1)CTPTRI. #48 + 0681 
1g 1F 0031 BLSSU  _43$ : 
39 6247 91 0031 (1) CTPTRI, #57 : 
Oc 1A 00 16 BGTRU 43$ F 
04 AE 9F 0031 PUSHAB HIGH_LNUM + 0683 
55 DD 0031B PUSHL 5 ; 
000000006 00 02 FB 0031D CALLS #2, DBGSNSAVE_DECIMAL_INTEGER : 
64 6E DO 00324 43$:  MOVL LOW , (NOUN_NODE) : 06 
OC AG 04 AE DO 00307 MOVL § HIGR_LNUM, 12(NOUN_NODE) + 0691 
01 pp O32C PUSHL # : 0697 
04 AB F 00326 PUSHAB DBGSCS_DBLAUOTE : 
55 DD 003 1 PUSHL R : 
000000006 00 03 FB 00333 CALLS #3, DBGSNMATCH : 
09 50 £9 0033A BLBC : : 
5A 01 DO 00330 MOVL #1, DBLQUOTE_FLAG + 0700 
08 AE 2 00 99 40 MOVL #3h, DELIMITER : 0701 
F 11 00344 BRB 47$ : 0697 
1 pp 00246 44%: PUSHL #1 > 0704 
02 ag F 00 48 PUSHAB DBG$CS_QUOTE F 
55 DD 00348 PUSHL : 
000000006 00 03 FB 0340 CALLS #3, DBGSNMATCH ; 
09 0 €9 00354 BLBC ° 45 : 
58 01 10 00 37 MOVL #1. QUOTE _FLAG + 0707 
08 AE #7 DO A MOVL #39, DELIMITER : 0708 
3 11 0035 BRB 47$ : 0704 
6 83 60 458 TSTw = (R5) : 0717 
dD 1 6 BEQL 46$ : 
50 00 86 9A 00 MOVZBL @0(R6), CHAR > 0719 
66 06 0368 INCL (R6) : 
: B7 0036A DECW = (R5) : 0720 
20 0 : 0 6C CMPL CHAR, #32 : 0721 
EF of BEQL © 45$ F | 
6 D 46%: DECL (RG) : 0727 | 
B6 0037 INCW = (R5) : 0728 | 
1 DD 00375 47$:  PUSHL #1 : 0736 
0820 F 6B 7 PUSHR #*M<R5,R11> 3 
000000006 A : FB 0 CALLS #3, GSNMATCH : 
° ° i 
3 A ES BLBS  DBLQUOTE_FLAG, 48$ : 0741 
16 8 t BLBC QUOTE FLAG, 49$ ; | 
08 AF F B48$:  PUSHAB DELIMITER : 0743 | 
DD PUSHL : 
3 oD PUSHL R3 : 
DD 9 PUSHL a 3 
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; Routine Size: 983 bytes, Routine Base: DBGSCODE + 0000 


; 639 0770 
; 640 0771 


ss 
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#164304 

#5, Loser ent 
(NOUN NODE) 
2$ 

iat LINK 

40 eg TEMPMEM 


NOU 
NOUN, NODE” (LINK) 
MESSAGE_VECT 
=(SP) 


DELIMITER 
NOUN. NODE 


#6, DBGSNACCEPT_STRING 
RO, 52$ 
#4, RO 
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1 s 
DEBUG. SRC JDBGNSEARC .B32;1 ( 
GLOBAL ROUTINE dbg$nexecute_search (verb_node,message_vect) = : 
| Functional Description | 


This routine performs the action associated with the SEARCH 
command. 


i Formal Parameters 


LOCA 
Pointer to an adverb node 
Points to the search string 
Points to a node in the 
command execution tree. 
Pointer to module name 
TRUE if /NEXT was specified 
address of first noun node 
address of second noun node 
TRUE if /STRING was specified 


rb_node, 


L 
adverb_node: REF dbgsadue 


cs .ptr: REF VECTORC BYTE 
Link, 


(GD Od Co Cd Cd Cd. Cd 09 Cd C9 00 CO: 
ROR 


mow 
ONO WN —OOONOuUSWN Oo 


modnameptr, 

next_flag, 

noun_node : REF dbg$noun_node, 
second_noun_node : REF dBbg$noun_node, 
string_flag; 


H 1 

H : 1 

3 8 4 1 

: 646 Ore 1 | 

> 647 0 § 1! 

> 648 0778 1! 

; 649 0779 1! 

; 650 0780 1! 

3 $9) 0781 1! verb_node -A conquers containing the address of the 

; 626 0 ¢ 1! head (verb) node. 

3; 6) oc8 1! message_vect - The address of a longword to contain the 

; 654 0784 1! address of an error message vector 

3 @99 0785 1! 

; 656 0786 1°! Implicit Inputs 
; 657 0787 1! 

; 658 0788 #1! The command tree contains a verb node, a Linked List 

; 659 0789 1! of one or two noun nodes, and possibly a Linked list of 

; 660 0790 1! one or two adverb nodes. (See the diagram in the header for 

; 661 0791 1! dbg$nparse_search). 
3; 662 1444 1! . 
; 663 0795 1 ! Implicit Outputs 
; 664 0794 1! 
3; 665 0795 1! This routine calls a o2utine in DBGSOURCE which displays the 

> 666 0796 1! source lines to the u er. 
3 667 0797 1! : 

; 668 0798 1 ! Routine Value 

; 669 0799 1! 

; 670 0800 1! A completion code. 

> 671 0801 1! 
s 66F, 0802 1 ! Completion Codes 
; 67 0803 1! 
; 674 0804 1! sts$k_success (1) - Success. Command executed | 
; 675 0805 1! sts$k_severe (4) - Failure. The command could not be | 
; 676 0806 1! executed. An error message is constructed. 

; 677 0807 1! | 
; 678 0808 1 ! Side Effects 

; 679 0809 1! 

; 680 ;! none 
+ 681 S ten 
; 68 BEGIN 
; 68 
> 684 MAP 

; os? verb_node : REF dbg$verb_node; 
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D 13 
16-Sep-1984 91:36:37 AX-11 
14-Sep-1984 12:17:20 DEBUG. 


noun_node = .verb_node[dbg$l_verb_object_ptrd; 


Get the module name and print it. 


dbg$sta_symname(.noun_node(dbg$l_ adjective tr], modnameptr); 
DBOSPRINTCUPL IT BYTE(ZASCIC Fer ead th be Se et . 
DBGSNEWLINE(); 


! If the user supplied a string, copy it into DBGSSRC_SEARCH_STRING 
which is where the search reatian bunecte to find if. > 


IF _.moun_nodeCdbg$l_noun_Link] NEQ 0 
THEN 


BEGIN 

second_noun_node = .noun_node (dbg$l_noun_Link]; 

cs_ptr = .s@cond_noun_node Cdbg$l_noun_valueJ; 
dbg$src_search_stringl0J = .cs_ptr(0J; 

ponewe (.cs_ptr(0J, cs_ptr(1]> dba$src_search_string(1)); 


Process any command overrides that may be present. 


link = .verb_node Cdbg$l_verb_adverb_ptrJ; 
ca NEQA 0 


dbg$set_search_lvl (override_search); 
WHILE .Link NEQA 0 DO 

BEGIN 

adverb_node = 


link; 
CASE .adverb_node Cdbg$b_adverb_literal] FROM adverb_literal_all 
SET TO adverb_literal_ident OF 


Cadverb_literal_all] : ! /ALL or /NEXT 
BEGIN 


dbg$gb_search_ptr(Csearch_all] = 
-adverb_node ([dbg$l_adverb_valueJ; 
hen = ,adverb_node dbg$l_adverb_Link]; 


hadvert | ttorat_ ident? : ! /IDENT or /STRING 
dbg$gb_search_ptr Csearch_ident) = 


_ ,adverb_node Cdbgs\ _sdverb_value); 
Link = .advérb_node Cdbg$l_adverb_Link]; 


2 


TES; 
END; 
IF .dbg$gb_search_ptr Csearch_ident] 


Bliss-32 V4.0-7 
SRC JDBGNSEARC.B 


| 13 | 
DBGNSEARC 1-Se 1984 91:56:37 AX-11 Bliss-32 V4.0-74 Page 22 
voee00e 127868-1 384 93:98:35 DEBUG. SRC IDBGNSEARC .83 31 . (4) 
ae THEN 
3 i 5% ? string_flag = 0 
+r : 89 string. flag = 1; 
; 760 90 IF .dbg$gb_search_ptr Csearch_all) 
3 rel 91 THEN 
; 76 3 next_flag = 0 
; 76 8 9 
: 764 894 next_flag = 1; 
; 765 0895 
; 766 08 
3 167 $97 : Call the routine which actually searches for the string. 
; 769 899 dbg$src_search cmd ( | 
: 770 900 -noun_node chest -edject ive str, 
5 44 349 noun_nodeldbg$l_noun_valuel, 
. or 090 -noun_nodeCdbg$l_noun_value2], 
4 774 0904 0 ° | 
: me 0905 -Sstring_ flag, 
: 776 090 enext_flag); 
; 777 090 
: 778 0908 RETU°N sts$k_success 
: 779 0909 
; 780 0910 1 END; ! dbg$nexecute_search 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
43 41 21 20 65 6C 75 64 6F 6D OA 00043 P.AAL: .ASCII <10>\module !AC\ : 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


OOFC 00000 LENTRY DBGSNEXECUTE_SEARCH, Save R2,R3,R4,R5,R6,R7 ; 0772. 
SE 04 C2 00002 SUBL2 ; 
57 04 AC DO 00005 MOVL § VERB_NODE, R7 ; 0830. 
56 08 <a? 00 00009 MOVL 8(R7), NOUN_NODE 3 
5E DD 00000 PUSHL SP > 0835 | 
04 A6 DD 0000F PUSHL  4(NOUN_NODE) ; 
000000006 00 02 FB 9012 CALLS #2, DBGSSTA_SYMNAME ; 
GE pp O01 PUSHL_ MODNAMEPTR : 0836. 
00000000 EF 9F 0001B PUSHAB P.AAL ; | 
000000006 00 2 FB 909 1 CALLS a3, DBGSPRINT ; | 
000000006 0 FB 00028 CALLS #0, DBGSNEWLINE > 0837 | 
me SP Ani dear fxfoun_ nove — 
50 08 Ad 00 000 MOVL § 8(NOUN_NODE), SECOND NOUN. NODE : 0846 
0 60 D MOVL § (SECOND_NOUN NODE), CS_PTR > 0847 | 
000000006 90 60 VB (CS_PTRY, DBGSSRC_SEARCH_STRING : 0848 | 
1 0 3A 4 mOVZBL (CS"PTR). RI > 0849 | 
000000006 00 01 Ag 1 4 vC3_-R1,-1(CS_PTR), DBGSSRC_SEARCH_STRING*1 : 
5 06 A? p 4E 18: VL = &(R7),, LINK ; 0855 | 
9 3 a 2 > 0856 | 
2 dd 000 PUSHL #2 : 0858 | 
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000000006 00 1 Ff 6 CALLS DBGSSET_SEARCH_LVL : 
1 000000006 o9 D 3 3: mov’ DB Bésce. SEARTH_PTR, RI > 0869 
s¢ 98 Sooee Otek g seen 
50 35 pO 0 MOVL LINK, ADVERB_NOD : 0862. 
01 00 6 F 00068 CASEB (ADVERB. NODEY, #0, #1 > 0863. 
Q00A 0004 O06F 4$ WORD 23-48, : 
61 0¢ AQ 90 00073 58: MOVES CADVERB_NODED, (R1) : 0870) 
05 11 0007 BRB 7$ : 0871 
01 «Al 04 Ad 90 00079 6$: MOVB 4(ADVERB_NODE), 1(R1) : 0877 
52 08 a0 00 A: $: MOVL B(ADVERB- NODE). LINK : 0878 
£0 11 BRB 4 3 086 
04 01 Al €9 00084 8$ BLBC =: 1(R1), 9S : 0885 
3¢ D4 000 CLRL §STRING_FLAG : 0887 
03 11 0008A BRB 10$ : 
52 01 DO O08¢ 9 MOVL #1, STRING_FLAG + 0889 
04 gi E9 OOO8F 10$ BLBC (RID, 118 + 0890 
9 D4 00092 CLRL NEXT_FLAG : 0892 
03 11 00094 BRB 12$ 3 
50 01 pO 90096 11$ MOVL #1, NEXT_FLAG + 0894 
50 DD 00099 12$ PUSHL NEXT_FLAG : 0906 
52 DD 00098 PUSHL STRING_FLAG : 0905 
7E 04 0009D CLRL. =(SP) : 0899 
0C A6 DD 0009F PUSHL  12(NOUN_NODE) : 0903 
7E D4 OOOA2 CLRL. = (SP) : 0899 
66 DD 000A4 PUSHL (NOUN NODE) : 0901 
04 Ad DD 0006 PUSHL 4 (NOUN NOD : 0900 
000000006 00 07 FB 000A9 CALLS #7, DBCSSRC, _SEARCH_CMD 3 
50 01 pO 000B MOVL #1, R : 
04 0008 RET : 091 
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18-5e 1984 01:56:37 AX-11 Bliss-32 V4.0-74 Pa 4 
14-Sep-19 4 9:39:35 DEBUG. SRC JDBGNSEARC .B32;1 3 | 
GLOBAL ROUTINE dbg$naccept_string Cineyt desc, result_addr, 
delimiter, perm_flag, 
ees message _vect, uppercase_flag) = 


Functional Description 


This routine is called at the point when DBGSNPARSE_SEARCH expects to 
see a search string. Some possible forms of the search command are: 


SEARCH ott search-string 
SEARCH “'search=-string’’ 
SEARCH ‘search-string' 


At the point this routine is called the leading quote, if there was one, 
has already been eaten. The delimiter will indicate what kind of leading 
quote was present, or will be <cr> if no leading quote was present. 


This routine allocates space for the search string. It then reads 
characters from the input stream until it hits the delimiter, 
copying them to the allocated area as it reads. It also translates 
lower case to upper case and undoubles quotes as it is doing this. 
It returns the address of the counted able in RESULT_ADDR. 
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H 1 

: 1 

; 1 

; 1 

; 1 

; 1 

; 1 

: 1 

; 1 

; 1 

; 1 

Fy 1 

3 1 

; 1 

; 1 

; 1 

: 1 

3 1 

: 1 

; 1 

| } 

; ! It updates INPUT_DESC to reflect the characters read. 

3 ’ Inputs 

$ 1 input_desc - A string descriptor for the remaining input. 

: 0938 #1 resul€_addr - The address at which to leave the string that 

; 810 0939 1 s read. 

; 811 0940 1 delimiter - The character that terminates the string. This 

3 sig 0941 1 will be one of: 

; 81 0942 1 quote, double quote, or carriage return. 

; 814 09435 1 perm_flag - Says whether the string will be allocated from 

; 815 0944 1 permanent or temporary memory. 

: 816 0945 1 message_vect - The Srpqusent vector for error messages. 

; 817 0946 1 uppercase_flag _ True if the string is to be uppercased, False if 

; 818 0947 1 not. 

; 819 0948 1 

; 820 0949 1 ! Outputs 

; 821 0950 1 

3 ase oa4 : A counted string is created and its address is left in RESULT_ADDR. 

3 & $988 1 ! Routine Value 

; 5 $32¢ 1 

3 6 955 1 A standard completion code. 

3; 827 6328 1 !e- | 
; 828 95 BEGIN 

; 829 0958 MAP 
3 § 959 input_desc : REF dbg$stg_desc; ! String descriptor for the 
5 oa! 960 } remaining (unparsed) 
; 3 961 ! input string. 
3 $3 +4) LOCAL 

3; 834 96 char, ' Holds a single character thatr 
3 835 964 H is being copied from the 
3 3 5 Ln ot —_ to the 

: ; result string area. 

; tf 969 count, ! Count of charactert read 


Loop until we hit the delimiter 
WHILE TRUE DO 

! First check for the delimiter 
if .char EQL .delimiter 


THEN 
! If we see the delimiter, then check to see whether we are looking 


NOUS WM 
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ee 
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: ata pair of quotes, E.g., 
' SEARCH *‘AB'"'CD : 
In this case we want to undouble the quotes and continue. 


PSSSSSRO Rowe 


H 13 

GNSEARC 16-Sep-19 2:56:37 AX-11 Bliss-32 V4.0-74 
MO 000 13-80 8-198e 93:39:30 DEBUG. SRC JDOBGNSEARC .832;1 
s; &> input ptr, ! Pointer to the current position 
3 0 ! n the input stream. 
; 1 lahead_char, !' Holds next character in stream. 
3 ¢ ! Used to look ahead one 
H : character to determine 
3 4 ! whether it is necessary 
; 845 ! to undouble quotes. 
3 § Length, ' Holds the remaining Length of the 
; } input stream. 
; : output_ptr, ! Pointer to the current position 
: Fs »... output character 
; 5 result_str: REF VECTOR C,BYTE); i A pointer te the counted string 
; $26 ! containing the search string. 
: 854 ! We first allocate space for the result, so we can copy the string over 
; 855 rf: ' as we read it character by character. (The call below may reserve 
3 528 5 ! more space than is needed, but doing things this way simplifies the 
3 8 3443 ! algorithm. The alternative would be to loop through character by 
; 858 8 ! character, keeping a count, then reserve space, then loop through again 
: $28 pees to copy it over). 
; 861 0990 if .PERM_FLAG 
: bes 4434 RESULT_STR = DBGSGET_MEMORY(((1 + .INPUT_DESCCDSCS$W_LENGTH])/ZUPVAL) + 1) 
: 865 0994 ELSE 
H ¥$] 0995 RESULT_STR = DBGSGET_TEMPMEM(((1 + .INPUT_DESCCDSCSW_LENGTH])/ZUPVAL) + 1); 
; 868 0999 
3 ryt 3298 Perform some initialization. 
; er 000 count = 0; 
3 % 001 result_str(0) = 0; 
: 87 O08 input_ptr = yt te (. input_desc igpce_potnter3); 
3: 874 00 output_ptr = ch$ptr (resulf_str(1)); 
: 37? 4 length = .input_desc Cdsc$w_length]; 
; 877 O08 ! Read the first character. Each time we read a character we decrement 
; o78 sit : the Length variable since it represents remaining length. 
3 880 909 char = ch$rchar_a (input_ptr); 
3 10 length = .length - 1; 
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BEGIN 
lLahead_char = ch$rchar Co input peri 
IF -lafead_char EQL .char AND~.delimiter NEQ dbg$k_car_return 


Undouble the quotes 
BEGIN 
input_ptr = ch$plus (.input_ptr, 1); 
ELSE 
!' Not a case of double quotes, so just exit the Loop. 
EXITLOOP; 
ND; 
Translate lower case to upper case. 
iF char GEQ %C*a’ AND .char LEQ %C°z" AND .uppercase_flag 
char = .char = (%C'a'-%C'A"); 


! Write the current character to the output buffer and 
: get the next character. 


ch$wchar_a (.char, output_ptr); 

count = .count + 1; 

if .count gtr 255 then signal (dogS_strtootong) 
result_strl0) = .result_str(0) + 1; 

char ="ch$rchar_a (input_ptr); 


Check for exhausted input 
if .length EQL 0 
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THEN 
36) BEGIN 
9 ! If we reach the end of the input without seeing the delimiter 
93) character then this is an error 
9 a input_descCdsc$w_length] = .input_desc(dsc$w_length] - 1; 
9 IF .delimiter EQC dbg$k_quote 
935 064 THEN ! this was signaled as (nodelims) 
3 065 PO ee en = dbg$nmake_arg_vect (dbg$_MATQUOMIS) 
335 8; IF .delimiter EQL dbg$k_dblquote 
939 THEN ! this was signaled as (nodelimd) 
eet 090 Le emessage_vect = dbg$nmake_arg_vect (dbg$_MATQUOMIS) 
44 071 $DBG_ERROR(" DBGNSEARC\DBGSNPARSE_SEARCH") ; 
94 O76 RETURN sts$k_severe; 
944 07 END; 
945 074 
| 075 Length = .length - 1; 
Dey 6 END; 
948 7? ; 
4 8 : Now back up so that we do not include trailing blanks 
951 rs} IF delimiter EQL dbg$k_car_return 
952 1 THEN 
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ARC 1b-Se -1984 01:56:37 AX-11 Bliss-32 V4.0-74 Pp 7 
Mita 14-Sep-19 4 93:39:37 DEBUG. SRC IDBGNSEARC.B3 31 ~~ 3 
; ; 3 } DECR I FROM -result_str£0) TO 1 00 | 
: 955 1084 if .result_str£.i] NEQ %¢* * | 
ii 38 1982 THEN 1 TLOOP: | 
: 9 8 1 .result_strlOJ = .result_str(0) - 1; | 
oO an 
; 961 1 ! Update the command string descriptor so it points to beyond 
; 368 ; ; } the end of the string just reed.” . . | 
: 964 109 input_desc [dsc$a_pointer] = .input_ptr; 
; 965 1994 input dese Pgsc$a-Pointes s length?” 
3 $67 1036 The address of the counted string we have just read goes into result_addr. 
; 969 1098 .result_addr = .result_str; 
; 970 1099 
; 971 1100 RETURN sts$k_success 
3 o7¢ 1101 
: 97 1102 1 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
24 47 42 44 SC 43 52 41 45 53 4f 47 42 44 1B QOO4GE P.AAM: .ASCII <27>\DBGNSEARC\<92>\DBGONPARSE_SEARCH\ : 
48 43 52 41 45 53 SF 45 53 52 41 50 4E 0005D PF 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 

OFFC 00000 -ENTRY DBGSNACCEPT STRING, Save R2,R3.R4,R5,R6,R7,-; 0911 

58 000000006 00 9 90002 MOVAB LIBSSIGNAL, R11 : 
5 04 AC 00 000 MOVL INPUT_DESC, R3 3 0992 
1 10 A 9 000 BC PERM_FLAG, : 099¢ 
5 es 5¢ Ba8 1 MOVZWL (R3) 2 3; 0992 

5 01 =A E 0014 vag 1(R25, RO : 

50 04 § 0018 IvL2 #4, RO : 

01 AO 9F 00018 1(RO) : 

000000006 00 01 FB 0035 CALLS a. DBGSGET_MEMORY 3 
52 6 3¢ 1$: MOVZWL #3) R2 > 0995 

0 01 «OA : 9 A MOVAB 1(R25, RO ; 

0 04 ¢ E Divi2 #4, RO : 

01 AO OF PUSHAB 1(RO) : 

000000006 99 a: » CALLS #1, DBGSGET_TEMPMEM 3 

4 9 D 28: VL RO, RESULT_STR 3 
4 CLRL COUNT ; 1000 
64 94 0004 CLRB (RESULT STR) : 1001 
5 0% A3 bo 4 VL 4(R3), INPUT_PTR 3 1006 

§ 1 Ad é 4 MOVAB 1(R4), OUTPUT_PTR : 100 

6 3 BR o00c0 MOVZBL Re. LENGTH, | CHAR 1088 
d7 O80 DECL LENGTH™ : : 1010 
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0 DEBUG. SRC JDBGNSEARC. 83 31 


HAR, 
3 

INPUT_PTR), LAHEAD_CHAR 
AHEAD-CHAR, CHAR 

1$ 

% 
NPUT_PTR 
HAR, #97 
HAR, #122 
UPPERCASE_FLAG, 5$ 

#32, CHAR 

Cia (OUTPL.’_PTR) + 
COUNT, #255 
64192 

LIBSS1GNAL 


Che sui R) 
CNPUT Tatas, CHAR 


7472 
1. DBGSNMAKE _ARG_VECT 
RO. @MESSAGE_VECT™ 


P.AAM 

#164706 

#3, LIBSSIGNAL 
#4, RO 

ENGTH 


R2, #13 
SULT STR), R1 
1), I 
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GNSEARC 16-Sep-1984 01:56:37 AX-11 Bliss- 4.0-74 
vOs~000 1e$ep-198e 12:19:20 — EDeeUG.SRcSDBGNSEARL 650; teat 


7 
| 
; 975 i 3 ' GLOBAL ROUTINE dbg$parse_search (parse_stg_desc) = | 
3 37 i 5 Functional Description | 
: 97 11 1 This routine provides an interface from the old language parsers to | 
; 980 11 ; 1! the new debugger parse network for SEARCH. it is passed a string 
; 981 11 1! descriptor for the remainder of the input Line. 
3; 1110 1! It calls DBGSNPARSE_SEARCH to construct 
: st i) : a command execution network, and returns a pointer to the verb node. 
; 985 1118 1 | Inputs 
: 38 Wis 1 i to.d A string descriptor for th inder. of th 
3 ! arse_stg.desc - string descriptor for the remainder o e 
; 988 1118 1! , input Line. 4 
; 989 1117 1! 
; 990 1118 1 ! Outputs 
; 991 1119 1! 
3 338 1120 1! A command execution network is constructed, 
; 99 1121 1! consisting of a verb node for the SEARCH 
; 994 11 g 1! verb, 0-2 adverb nodes for the overrides /IDENT, /ALL, etc. , and 
3 eae i Z ; two noun nodes. A pointer to this network is returned. 
: 997 1125 2 BEGIN 
: 398 1159 wd to.d REF BLOCK C,BYTEI 
; arse_stg_desc : P $ 
3; 1000 1128 Local . 
: 1001 1129 char, 
: 1005 1130 dummy _mess_vect: REF VECTOR, ! Address for msesege vector returned 
: 100 1131 2 ! from DBGSNPARSE_ SEARCH 
: 1004 11 ; len, ! Length of command Tine 
3 1005 11 parse_st -pir ! Pointer into command Line 
3: 1006 1134 stg : RE Ecfor C,BYTE), ! Pointer to a new copy of the 
: 1007 1135 ! command Line 
; 1008 1136 verb_node; ! Pointer to the head of the command 
$ H's 64 ie § ! execution tree for SEARCH 
3 1011 1139 ' Call the ‘new style’ parse network for the search 
3 Org 1140 ' command. This builds a command execution network. 
: Biz 114) We return a pointer to the verb node. 
; 1013 1148 First allocate space for the verb node. 
: 1017 1145 VERB_NODE = DBGSGET_TEMPMEM(DBGS$K_VERB_NODE_SIZE); 
: 1018 1146 | 
3 101 114 
: 1930 1148 ! Then stuff a carriage return character at the end 
: 1021 1149 ! of the input Line since this is what the new style 
: 10 § 1150 ! parser expects to see. Also, translate the Line to 
: 9 Z 113) upper case (the new debugger does this; the old does not) | 
: 1025 1138 ien = sparse stg desc dsc $y Length); 
3 10 6 1154 STG = DBGSGET_TEMPMEM(1 + (T + sLEN) /RUPVAL) ; 
3; 10 1155 pores stanpte = chéptr{.parse_stg_desc dsc$a_pointer]); 
3; 1028 1126 NCR I F 0 T0 .len-1 DO | 
: 1 3 18 ty h$rchar_a( t 
3 char = ch$rchar_a(parse_stg_ 
3; 1031 1138 4 3;° 


tr); 
IF .char GEG %C%a" AND schar LEQ X%C'2" | 
| 
| 
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ARC 16-Sep-1984 01:56:37 AX-11 Bliss-32 V4.0-74 Page 
voce 122868218 4 9:39:35 DEBUG. SRCIDBGNSEARC .83 31 ’ 
; 10 ¢ 1160 3 THEN 
3 3 1193 4 stgl.jJ] = .char = (%C'a'-%C'A') 
3) 11 ¢ ELSE 
; : 5 1397 stgl.j] = .char; 
: 10 1165 stgl.len] = dbg$k_car_return; 
: 19 1166 parse_stg_descldsc$a_pointer) = .stg; 
3; 1 116 parse_stg_desc decoy ength] = 
; 1969 1168 -parseé_stg_descldsc$w_length] + 1; 
3 18¢$ 1179 ! Now call the parser on the remainder of the input Line 
: 104 117¢ if NOT dbg$nparse_search (.parse_stg_desc, 
; 1S? 1178 verb node. dimay_messvect) ~ 
; 1009 1175 ! If the above routine does not return success, then we signal 
3 ines 1328 an error using the error message vector that we got back. 
: 1050 1178 BEGIN 
: 1051 1179 EXTERNAL ROUTINE 
: 1936 1180 LIBSSIGNAL : ADDRESSING_MODE (GENERAL); 
3 105 1181 BUILTI 
3 1054 1136 LLG; 
3; 1055 118 CALLG (.dummy_mess_vect, Lib$signal); 
: 1089 1188 — 
3 1058 1186 ! Restore pointer field of PARSE_STG_DESC since this can be wiped out 
3 1923 at during new style parsing. 
3 1061 1189 : iF .parse_stg_desc(dsc$a_pointer] EQL 0 
; 1906 1190 THEN 
3 iRer 113) parse_stg_desc(dsc$a_pointer] = .stg+.len; 
: 1065 1198 ! Finally, return a pointer to the verb node. 
; 1986 1194 2 ‘ 
3; 106 1195 2 RETURN .verb_node 
3: 1068 1196 2 
3; 1069 1197 #1 END; ! dbg$parse_search 


-EXTRN LIBSSIGNAL 


OOFC 000 ENTRY DOGSPARSE SEARCH, Save R2.R3,R4,R5.RO.R7 

57 000000006 00 H 000 MOV DBoSGET_TEMPMEM, R ; 

5e 04 C2 000 SUBL2 #4, SP 3 

3 dD 0000C PUSHL ; 

67 1 FB OO00E CALLS #1, DBGSGET TEMPMEM ; 

36 0 pO 00011 OVL RO, VERB_NODE ; 

4 04 AC 14 OVL  PARSE_STG_DESC, R4 ; 

| 32 64 3C 9 18 MOV2WL (R4), "LEN ; 
1 5 01 A2 : 18 MOVAB 1(R25, RO ; 
50 04 § 1F Divi2 #4, RO ; 
3 01 AO 9F PUSHAB 1(RO) ; 
| ? 1 F CALLS #1, DBGSGET_TEMPMEM ; 

| 5 0D MOVL STG ; 
04 A& DO 00028 MOVL  4(R4), PARSE_STG_PTR ; 


£4155 


31 
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DBGNSEARC 1b-Se =1984 01:56:37 AX-11 Bliss-32 V4.0-7 Page 32. 
Mirae 127828713 4 94:36:37 DEBUG. SRCJDBGNSEARC. 3 31 . (6) | 
| 
50 1 F MNEGL #1, J : 1161) 
51 : ii op ar Bete {PARSE_STG.PTR)*, CHAR ase 
00000061 &F 21 D4 00 7 CPL HAR, #97 ~ ; : 1159) 
0000007A_ =sBF 51 01 B46 CMPL HAR, #122 : | 
7 16 0004 BGTR ; | 
6043 51 0 83 0049 SUBB3 #32, CHAR, (J){STGI : 1161 | 
on Que BRB F 
6043 1 90 0005 38 MOVB CHAR, (J)CSTGI + 1163 
Dc 50 52 F2 00054 3$ AOBLSS LEN, J + 1156 
624 gp 9 0058 OVB #13, (LEN)CSTG) + 1165 
04 Ad DO 0005¢ MOVL STG, 4¢ + 1166 
64 B6 00060 INCW = (RGS : 1168 
4050 8F BB 00062 PUSHR #*M<R4,R6,S : 1172 
FA04 CF 03 FB 00066 CALLS #3, DBGSNPARSE SEARCH 3 
08 50 €8 00068 BLBS RO, 4$ : 
000000006 00 00 BE FA 0006E CALLG @DUMMY_MESS ECT, pt tBSSIGNAL > 1183) 
50 04 AC DO 00076 4s: MOVL PARSE E_STG_DESC + 1189 
04 AO DS OOO7A TSTL 4(RO) 3 
05 12 0007D BNE ® : 
04 Ad 53 52 C1 0007F ADDL3 LEN, 4(RO) + 1191 
50 56 DO 00084 5$ MOVL ROBE, RO + 1195 
04 00087 RET + 1197 
; Routine Size: 136 bytes, | Routine Base: DBGSCODE + 0591 | 
: 1070 1198 1 END | 
1071 1199 0 ELUDOM | 
.EXTRN LIBSSIGNAL | 
; PSECT SUMMARY | 
; Name Bytes Attributes | 
: DBGSPLIT 106 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
> DBGSOWN NOVEC, WRT, RD .NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
: DBGSCODE 1561 NOVEC.NOWRT, RD. EXE. SHR, LCL. REL. CON, PIC.ALIGN(O) 
| 
; Library Statistics | 
: eeeeeeen Symbols weceecece Pages Processing 
s File Total Loaded Percent Mapped Time 
: $2558 ant Syst BIL .L32;1 18619 0 1000 0:01.9 | 
3 7$255$pu JISTRUCDEF 32:1 3 6 0 7 0: :00. 2 
; =$255s0uase ‘TDEBbe. OB) DBGLIB.L32;1 154 3 2 97 02. 
: 7$255$DUA28: CDEBUG.OBJJDSTRECRDS.L32;1 
: 418 0 31 00:00.4 | 


14 
DBGNSEARC 1hede -1984 01:56:37 AX-11 Bliss-32 v4.0-7 Page 33, 
vitae tt 12-808-1 3b 03:78:35 DEBUG. ERCTDBGNSEARC.B3 B32;1 w 6a) | 
; $255S$DUA28: (DEBUG.0BJ ]DBGMSG.L32;1 3 7 1 2 00:00.3 | | 
: “$255$puUA28: 8 EDEBUS Oey ppc een tas #86 3 2 $8 00:00.3 | 
: COMMAND QUALIFIERS | 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=L1S$:DBGNSEARC/OBJ=0BJ$:DBGNSEARC MSRC$:DBGNSEARC/UPDATE=(ENH$ : DBGNSEARC) | 
; Size: 1561 code + 187 data bytes | 
; Run Time: 00:33.3 


; 0: 
; Elapsed Time: 01:26.4 
; Lines/CPU Min: 216 

3 Lexemes/CPU-Min: 11482 

; paneer Used: 298 pages 
; a 


; Compilation Complete 
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